home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / Internal_166.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  534 b   |  29 lines
  1. property spriteNum, md
  2. global Current
  3.  
  4. on beginSprite me
  5.   md = 0
  6. end
  7.  
  8. on mouseDown me
  9.   md = 1
  10. end
  11.  
  12. on mouseUp me
  13.   md = 0
  14. end
  15.  
  16. on mouseUpOutSide me
  17.   md = 0
  18. end
  19.  
  20. on mouseWithin me
  21.   if md then
  22.     sprite(spriteNum - 10).playin = 0
  23.     sprite(spriteNum + 1).locH = the mouseH
  24.     Current = integer(max(1, (the mouseH - sprite(spriteNum).left) / float(sprite(spriteNum).width) * sprite(spriteNum - 10).mylist.count))
  25.     sprite(spriteNum - 10).pos = Current
  26.     member("current_point_field").text = " " & string(Current)
  27.   end if
  28. end
  29.